home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / anforderung.clssa next >
Text File  |  1996-02-18  |  15KB  |  326 lines
  1. /***********************************************************************
  2.   $DAT >>Anforderung.clssa<<  24.01.1995 - (C) ProDAD Michael Christoph
  3. ************************************************************************/
  4.  
  5. OPTIONS RESULTS
  6. ADDRESS clariSSA
  7.  
  8.   ARG direktwahl
  9.  
  10.   FailAt 99
  11.   AltFail=RESULT
  12.  
  13.   DO FOREVER
  14.     IF direktwahl~=1 & direktwahl~=2 & direktwahl~=3 THEN DO
  15.       MSRequester "TITLE '*** Information über clariSSA ***'",
  16.                         "''",
  17.                         "'Bitte wählen Sie aus, zu welcher'",
  18.                         "'clariSSA-Version Sie Informationen'",
  19.                         "'haben möchten.'",
  20.                   "PTEXT 'clariSSA 3.0 professional'",
  21.                         "'clariSSA 3.0 professional EASY'",
  22.                         "'Upgradepreise'",
  23.                         "'** zurück **'"
  24.       IF RC~=0 THEN LEAVE
  25.     END
  26.     ELSE DO
  27.       RESULT=direktwahl
  28.       direktwahl=-1
  29.     END
  30.     IF RESULT=1 THEN res=clari_prof()
  31.     IF RESULT=2 THEN res=clari_easy()
  32.     IF RESULT=3 THEN res=clari_preise()
  33.     IF RESULT=4 THEN res=-1
  34.  
  35.     IF res=1 THEN res=clari_preise()
  36.     IF res=2 THEN res=clari_drucken()
  37.  
  38.     IF res=-1 THEN LEAVE
  39.     IF direktwahl=-1 THEN LEAVE
  40.   END
  41.  
  42.   FailAt AltFail
  43. exit
  44.  
  45.  
  46.  
  47.  
  48. clari_prof: PROCEDURE
  49. DO
  50.  
  51.   MSRequester "TITLE '*** clariSSA 3.0 professional ***'",
  52.                     "''",
  53.                     "'Diese Version bietet alles, was des Animateur`s Herz begehrt !'",
  54.                     "'Flexibel - detailliert - schnell und funktionell !'",
  55.                     "'Mehrfach ausgezeichnet, oft bewundert und bestaunt, kein Wunder'",
  56.                     "'bei diesen Funktionen:'",
  57.                     "''",
  58.                     "'High-End-SSA     => doppelt so schnell und weich im Animablauf als V 1.1 '",
  59.                     "'                    d.h., die Chance eine Anim ruckfrei abzuspielen ist  '",
  60.                     "'                    NOCHMALS um 100% höher!!!                            '",
  61.                     "'Disk-SSA-Anim    => Animationen von Harddisk direkt abspielen            '",
  62.                     "'Dialogmacros     => Viele Anwenderkomfortable, vollautomat. Funktionen   '",
  63.                     "'                    wie Laden, Speichern, autom. Formatwandlung          '",
  64.                     "'Animablauf       => komfortables Animations-Timeline-Fenster             '",
  65.                     "'MultiAnimPlay    => Formatunterschiedliche Animationen kombinieren       '",
  66.                     "'MultiAnimPlay(2.)=> MEHRERE Anims auf EINEM SCRREEN (in ECHTZEIT !!)     '",
  67.                     "''",
  68.               "PTEXT 'nächste Seite ...'"
  69.  
  70.  
  71.   MSRequester "TITLE '*** clariSSA 3.0 professional ***'",
  72.                     "''",
  73.                     "'ANIM-BEEINFLUSSER'",
  74.                     "'- Keying         => Nicht nur die Farbe 0 sondern wahlweise keyen !      '",
  75.                     "'                    (einzeln, Bereiche somit Ein- Ausblendeffekt über    '",
  76.                     "'                    Genlock-Stanzfunktion auf laufende Anims in Echtzeit)'",
  77.                     "'- Control        => bestimmte Aktionen während d. Animablaufs einleiten  '",
  78.                     "'- Farben         => Farbeffekte in laufenden Animationen (Echtzeit)      '",
  79.                     "'- Fade           => Fadeeffekte in laufenden Animationen (Echtzeit)      '",
  80.                     "'- Ausschnitt     => Fensteereffekte während lfd. Anims (Echtzeit)        '",
  81.                     "'                    mit Transformer Zoom in laufende Animationen         '",
  82.                     "'- 2Punkt-Bewegung=> Laufende Anims in Echtzeit übers Bild bewegen        '",
  83.                     "''",
  84.                     "'AREXX            => sämtliche Funktionen per ARexx steuerbar             '",
  85.                     "'AREXX-Recorder   => Funktion zur ARExx-Aufzeichnung Ihrer Tätigleiten    '",
  86.                     "'GPI-Steuerung    => Abfahren einer Animation auf externen GPI-Impuls     '",
  87.                     "'Einstellungen    => viele Möglichkeiten zur Animsteuerung                '",
  88.                     "'Anleitung        => gedruckte Anleitung mit ausführlicher Information    '",
  89.                     "''",
  90.                     "'Paketpreis : clariSSA V3.0 pro : DM 449.--'",
  91.               "PTEXT 'Upgradepreise / Upgradeanforderung'",
  92.                     "'** zurück **"
  93.  
  94.   IF RC~=0 THEN return(-1)
  95.   IF RESULT>1 THEN return(0)
  96.   return(1)
  97. END
  98.  
  99.  
  100. clari_easy: PROCEDURE
  101. DO
  102.  
  103.   MSRequester "TITLE '*** clariSSA 3.0 professional EASY ***'",
  104.                     "''",
  105.                     "'Einfach in der Anwendung, jedoch trotzdem volle Geschwindigkeit'",
  106.                     "'und volle Leistung - so die Philosophie dieser Version.'",
  107.                     "''",
  108.                     "'Der Funktionsumfang ist ähnlich der `großen` clariSSA professional:'",
  109.                     "'High-End-SSA     => doppelt so schnell und weich im Animablauf als V 1.1'",
  110.                     "'                    d.h., die Chance eine Anim ruckfrei abzuspielen ist '",
  111.                     "'                    NOCHMALS um 100% höher!!!                           '",
  112.                     "'Dialogmacros     => Viele Anwenderkomfortable, vollautomat. Funktionen  '",
  113.                     "'                    wie Laden, Speichern, autom. Formatwandlung         '",
  114.                     "'Animablauf       => komfortables Animations-Timeline-Fenster            '",
  115.                     "'MultiAnimPlay    => Formatunterschiedliche Animationen kombinieren      '",
  116.                     "'FX-Generator     => Echtzeiteffekte(!) auf laufende(!) Animationen      '",
  117.                     "'ONLINE-Anleitung => führt Sie durchs Programm, direkt am Bildschirm     '",
  118.                     "'                    - einfach - schnell - komfortabel !                 '",
  119.                     "''",
  120.               "PTEXT 'nächste Seite ...'"
  121.  
  122.   MSRequester "TITLE '*** clariSSA 3.0 professional EASY ***'",
  123.                     "''",
  124.                     "'Folgende Funktionen fehlen:'",
  125.                     "''",
  126.                     "'SSAd (Diskanim)'",
  127.                     "'Animablauf mit Einzel-Echtzeit-Beeinflussern'",
  128.                     "'Gameport-Steuerung (GPI)'",
  129.                     "'ARexx (eingeschränkt)'",
  130.                     "'Tätigkeitsaufzeichnung zur ARexx-Programmierung'",
  131.                     "''",
  132.                     "'Paketpreis : clariSSA V3.0 pro EASY : DM 299.--'",
  133.               "PTEXT 'Upgradepreise / Upgradeanforderung'",
  134.                     "'** zurück **'"
  135.   IF RC~=0 THEN return(-1)
  136.   IF RESULT>1 THEN return(0)
  137.   return(1)
  138. END
  139.  
  140.  
  141. clari_preise: PROCEDURE
  142. DO
  143.  
  144.   DO FOREVER
  145.   MSRequester "TITLE '*** Upgradepreise ***'",
  146.                     "''",
  147.                     "'       proDAD, Feldelestraße 24, 78194 Immendingen       '",
  148.                     "'               Tel. 07462/91134   Fax. 07462/7435         '",
  149.                     "''",
  150.                     "' V1 -> Upgrade Version 3.0 pro EASY            DM 199.-- '",
  151.                     "' V1 -> Upgrade Version 3.0 professional        DM 299.-- '",
  152.                     "' V2 -> Upgrade Version 3.0 pro EASY            DM  99.-- '",
  153.                     "' V2 -> Upgrade Version 3.0 professional        DM 199.-- '",
  154.                     "' V3 -> Neue Macros, Infos etc. incl. Versand   DM  20.-- '",
  155.                     "''",
  156.                     "'Version 3.0 - Zubehör:'",
  157.                     "''",
  158.                     "' Modul Sound (Soundeinbindung)                 DM  69.-- '",
  159.                     "' Modul Transformer (Bild- und Animbearbeitung) DM  79.-- '",
  160.                     "' Modul FM-Connector (Framemachine-Einbindung)  DM 149.-- '",
  161.                     "' Loaderpackage (PCX, GIF, JPEG-Direktimport)   DM  59.-- '",
  162.                     "' Lernvideo (nur für clariSSA 3.0 professional) DM  49.-- '",
  163.                     "''",
  164.               "PTEXT 'Bestellformular anzeigen'",
  165.                     "'Bestellformular ausdrucken'",
  166.                     "'** zurück **'"
  167.  
  168.   IF RC~=0 THEN return(-1)
  169.   IF RESULT>2 THEN return(0)
  170.   IF RESULT=2 THEN return(2)
  171.  
  172.   IF RESULT=1 THEN res=clari_druckanzeige()
  173.   IF res=2 THEN return(2)
  174.   IF res=-1 THEN return(-1)
  175.   END
  176. END
  177.  
  178.  
  179. clari_druckanzeige: PROCEDURE
  180. DO
  181.  
  182.   MSRequester "TITLE '*** Upgradepreise ***'",
  183.                     "''",
  184.                     "' Updateanforderung senden an:                            '",
  185.                     "''",
  186.                     "'       proDAD, Feldelestraße 24, 78194 Immendingen       '",
  187.                     "'               Tel. 07462/91134   Fax. 07462/7435         '",
  188.                     "''",
  189.                     "' V1 -> Upgrade Version 3.0 pro EASY            DM 199.-- '",
  190.                     "' V1 -> Upgrade Version 3.0 professional        DM 299.-- '",
  191.                     "' V2 -> Upgrade Version 3.0 pro EASY            DM  99.-- '",
  192.                     "' V2 -> Upgrade Version 3.0 professional        DM 199.-- '",
  193.                     "' V3 -> Neue Macros, Infos etc. incl. Versand   DM  20.-- '",
  194.                     "''",
  195.                     "'Version 3.0 - Zubehör:'",
  196.                     "''",
  197.                     "' Modul Sound (Soundeinbindung)                 DM  69.-- '",
  198.                     "' Modul Transformer (Bild- und Animbearbeitung) DM  79.-- '",
  199.                     "' Modul FM-Connector (Framemachine-Einbindung)  DM 149.-- '",
  200.                     "' Loaderpackage (PCX, GIF, JPEG-Direktimport)   DM  59.-- '",
  201.                     "' Lernvideo (nur für clariSSA 3.0 professional) DM  49.-- '",
  202.                     "''",
  203.               "PTEXT 'nächste Seite ...'"
  204.  
  205.  
  206.   MSRequester "TITLE '*** Upgradepreise ***'",
  207.                     "''",
  208.                     "' Versandart    Bezahlung per               Versandkosten '",
  209.                     "' ------------------------------------------------------- '",
  210.                     "' Post          Scheck / bar                    DM   5.-- '",
  211.                     "' UPS           Scheck / bar                    DM   7.-- '",
  212.                     "' Post          Nachnahme                       DM   9.-- '",
  213.                     "' UPS           Nachnahme                       DM  12.-- '",
  214.                     "''",
  215.                     "' Auslandpost nur per Einschreiben              DM  15.-- '",
  216.                     "' (nur gg. Vorkasse per Euroscheck oder bar)              '",
  217.                     "''",
  218.                     "'---  alle Preise incl. MwSt.  ---'",
  219.                     "''",
  220.               "PTEXT 'Bestellformular ausdrucken'",
  221.                     "'** zurück **'"
  222.   IF RC~=0 THEN return(-1)
  223.   IF RESULT=1 THEN return(2)
  224.   return(0)
  225. END
  226.  
  227.  
  228. clari_drucken: PROCEDURE
  229. DO
  230.  
  231.   BOOLRequest "'Bestellformular ausdrucken.''''Ist der Drucker bereit ?'"
  232.   IF RC~=0 THEN return(-1)
  233.   IF RESULT="NO" THEN DO
  234.     res=clari_druckanzeige()
  235.     IF res=2 THEN clari_drucken()
  236.     return(0)
  237.   END
  238.  
  239. /****** Drucker-Bereitschaftstest nich möglich
  240.   DO FOREVER
  241.     If ~Exists("prt:") THEN DO
  242.       BOOLRequest "'Drucker ist nicht bereit!''''Nochmal versuchen ?'"
  243.       IF RC~=0 THEN return(-1)
  244.       IF RESULT="NO" THEN DO
  245.         res=clari_druckanzeige()
  246.         IF res=2 THEN clari_drucken()
  247.         return(0)
  248.       END
  249.     END
  250.     ELSE LEAVE
  251.   END
  252. ******/
  253.  
  254.   IF Open(ff,"prt:","write") THEN DO
  255.  
  256.     datum=Date()
  257.     datum=Overlay(".",datum,3,1)
  258.     datum=Overlay(".",datum,7,1)
  259.  
  260.     WriteLn(ff,"")
  261.     WriteLn(ff,"    Name, Vorname: ___________________________________________________")
  262.     WriteLn(ff,"")
  263.     WriteLn(ff,"           Straße: ___________________________________________________")
  264.     WriteLn(ff,"")
  265.     WriteLn(ff,"         PLZ, Ort: ___________________________________________________")
  266.     WriteLn(ff,"")
  267.     WriteLn(ff,"          Telefon: ___________________________________________________")
  268.     WriteLn(ff,"")
  269.     WriteLn(ff,"")
  270.     WriteLn(ff,"")
  271.     WriteLn(ff,"          proDAD                                      Tel. 07462/91134")
  272.     WriteLn(ff,"          - Updateanforderung -                       Fax. 07462/7435 ")
  273.     WriteLn(ff,"          Feldelestraße 24                                            ")
  274.     WriteLn(ff,"                                                                      ")
  275.     WriteLn(ff,"          78194 Immendingen                                "datum)
  276.     WriteLn(ff,"")
  277.     WriteLn(ff,"")
  278.     WriteLn(ff,"======================================================================")
  279.     WriteLn(ff,"")
  280.     WriteLn(ff,"        Ich bin von der Leistungsfähigkeit der clariSSA 1.1 überzeugt,")
  281.     WriteLn(ff,"        möchte aber das absolute MAXIMUM meines Rechners feststellen. ")
  282.     WriteLn(ff,"        Deshalb bestelle ich hiermit ein UPGRADE wie folgt:           ")
  283.     WriteLn(ff,"")
  284.     WriteLn(ff,"    [ ] V1 -> Upgrade Version 3.0 pro EASY                   DM 199.--")
  285.     WriteLn(ff,"    [ ] V1 -> Upgrade Version 3.0 professional               DM 299.--")
  286.     WriteLn(ff,"    [ ] V2 -> Upgrade Version 3.0 pro EASY                   DM  99.--")
  287.     WriteLn(ff,"    [ ] V2 -> Upgrade Version 3.0 professional               DM 199.--")
  288.     WriteLn(ff,"    [ ] V3 -> Neue Macros, Infos etc. incl. Versand*         DM  20.--")
  289.     WriteLn(ff,"              * nur bei Vorkasse, nicht Nachnahme !                   ")
  290.     WriteLn(ff,"    [ ] bitte Infos über weitere Produkte beilegen                    ")
  291.     WriteLn(ff,"")
  292.     WriteLn(ff,"")
  293.     WriteLn(ff,"        Außerdem bestelle ich folgendes V 3.0-Zubehör:                ")
  294.     WriteLn(ff,"")
  295.     WriteLn(ff,"    [ ] Modul Sound (Soundeinbindung)                        DM  69.--")
  296.     WriteLn(ff,"    [ ] Modul Transformer (Bild- und Animbearbeitung)        DM  79.--")
  297.     WriteLn(ff,"    [ ] Modul FM-Connector (Framemachine-Einbindung)         DM 149.--")
  298.     WriteLn(ff,"    [ ] Loaderpackage (PCX, GIF, JPEG-Direktimport)          DM  59.--")
  299.     WriteLn(ff,"    [ ] Lernvideo (nur für clariSSA 3.0 professional)        DM  49.--")
  300.     WriteLn(ff,"")
  301.     WriteLn(ff,"")
  302.     WriteLn(ff,"        Versandart      Bezahlung per          Versandkosten")
  303.     WriteLn(ff,"----------------------------------------------------------------------")
  304.     WriteLn(ff,"    [ ] Post        [ ] Scheck / [ ] bar                     DM   5.--")
  305.     WriteLn(ff,"    [ ] UPS         [ ] Scheck / [ ] bar                     DM   7.--")
  306.     WriteLn(ff,"    [ ] Post        [ ] Nachnahme                            DM   9.--")
  307.     WriteLn(ff,"    [ ] UPS         [ ] Nachnahme                            DM  12.--")
  308.     WriteLn(ff,"")
  309.     WriteLn(ff,"    [ ] Auslandpost nur per Einschreiben                     DM  15.--")
  310.     WriteLn(ff,"        (nur gg. Vorkasse per Euroscheck oder bar)")
  311.     WriteLn(ff,"")
  312.     WriteLn(ff,"")
  313.     WriteLn(ff,"        alle Preise incl. MwSt.                      Gesamt: _________")
  314.     WriteLn(ff,"")
  315.     WriteLn(ff,"")
  316.     WriteLn(ff,"    Unterschrift:  ___________________________________________________")
  317.     WriteLn(ff,"")
  318.     WriteLn(ff,"")
  319.     WriteLn(ff,"    Bitte geben Sie uns Ihre genaue Rechnerkonfiguration an           ")
  320.     WriteLn(ff,"   (Model, Betriebssystem, Speicher, Festplatte, Turbokarte, Sonstiges)")
  321.  
  322.   Close(ff)
  323.  
  324.   return(-1)
  325. END
  326.